home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / gfx / fract / fu1_61.lha / Formulas / Twirl.Form < prev    next >
Text File  |  1995-03-09  |  236b  |  30 lines
  1. Twirl
  2. {
  3.     {
  4.         x1=-1.5
  5.         x2= 0.0
  6.         y1=-0.75
  7.         y2= 0.75
  8.         par1.r=-0.80721
  9.         par1.i=0.3215686
  10.         bailout=4.0
  11.     }
  12.     {
  13.         z=pixel
  14.     }
  15.     {
  16.         z1=sin(z)
  17.         z2=cos(z)
  18.         z=z1+z2
  19.         z=z*z
  20.         z=z+par1
  21.         w=z1+z2
  22.     }
  23.     {
  24.         w>bailout
  25.     }
  26.     {
  27.         PAR1-FIXPOINT C
  28.     }
  29. }
  30.